home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Checking & Savings v2.4d.cpt / Checking & Savings Demo2.4 / background_6571.txt < prev    next >
Text File  |  1988-02-27  |  8KB  |  331 lines
  1. -- background: 6571 from stack: in.4
  2. -- bmap block id: 38435
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Sub Accounts
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 00
  10. -- high flags: 0007
  11. -- rect: left=18 top=190 right=270 bottom=219
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 11
  19. -- part name: Sub Amount
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=466 top=306 right=342 bottom=510
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 2162 / 2162
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Map
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   go to card "Rpt."
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 9 (button)
  42. -- low flags: 00
  43. -- high flags: 8000
  44. -- rect: left=12 top=123 right=143 bottom=232
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 1
  48. -- font id: 0
  49. -- text size: 12
  50. -- style flags: 0
  51. -- line height: 16
  52. -- part name: Friday, January 1, 1988
  53. ----- HyperTalk script -----
  54.  
  55.  
  56.  
  57.  
  58. -- part 12 (button)
  59. -- low flags: 00
  60. -- high flags: 2004
  61. -- rect: left=358 top=296 right=337 bottom=400
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 1007 / 1007
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: ImageWriter
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   answer "How would you like to print?" with "This Acct." or "All Accts." or "CANCEL"
  73.   if it = "Cancel" then pass mouseUp
  74.   if it = "This Acct." then
  75.     open printing
  76.     print this card
  77.     close printing
  78.   end if
  79.   if it = "All Accts." then
  80.     push card
  81.     set lockscreen to true
  82.     go to last card of this background
  83.     put the number of this card into LastCard
  84.     go to first card of this background
  85.     put the number of this card into FirstCard
  86.     put LastCard-FirstCard+1 into HowMany
  87.     open printing with dialog
  88.     Print HowMany Cards
  89.     close printing
  90.     pop card
  91.   end if
  92. end mouseUp
  93.  
  94.  
  95. -- part 15 (field)
  96. -- low flags: 00
  97. -- high flags: 0002
  98. -- rect: left=266 top=164 right=187 bottom=467
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 134
  103. -- text size: 18
  104. -- style flags: 0
  105. -- line height: 24
  106. -- part name: Sub Total2
  107.  
  108.  
  109. -- part 16 (field)
  110. -- low flags: 01
  111. -- high flags: 0000
  112. -- rect: left=9 top=18 right=135 bottom=493
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 0 / 0
  115. -- text alignment: 0
  116. -- font id: 204
  117. -- text size: 48
  118. -- style flags: 0
  119. -- line height: 55
  120. -- part name: Sub Title
  121.  
  122.  
  123. -- part 20 (button)
  124. -- low flags: 00
  125. -- high flags: 0004
  126. -- rect: left=314 top=296 right=337 bottom=353
  127. -- title width / last selected line: 0
  128. -- icon id / first selected line: 8538 / 8538
  129. -- text alignment: 1
  130. -- font id: 0
  131. -- text size: 12
  132. -- style flags: 0
  133. -- line height: 16
  134. -- part name: SuperFind: Chris Hostetter
  135. ----- HyperTalk script -----
  136. on mouseUp
  137.   global  LastButton, searchstring, LastField
  138.   get the selection
  139.   if it is not empty then put it into SearchString
  140.  
  141.   put the name of the target into ThisOne
  142.   set hilite of thisOne to true
  143.  
  144.   -- Super Find
  145.   -- by Chris Hostetter, Mac Help Co., 1800 East Market Street
  146.   -- Long Beach, CA  90805, (213) 428-7414
  147.   -- This script may be used provided you also these credit lines
  148.  
  149.  
  150.   put "Chars" into FindType
  151.   put empty into SearchLimit
  152.   ask "Find Word(s)?   Hold option key for limits." with SearchString
  153.   set hilite of thisOne to false
  154.   if it is empty then
  155.     exit mouseUp
  156.   end if
  157.   put it into SearchString
  158.  
  159.   if the OptionKey is down then
  160.     if LastField is not empty then
  161.       Answer "Search for information in what field?" with "Cancel" or LastField or "Any Field"
  162.       if it is "Cancel" Then
  163.         exit mouseUp
  164.       end if
  165.       if it is LastField then
  166.         put " in background field " & NumToChar(34) & it & NumToChar(34) into SearchLimit
  167.       else
  168.         put "" into SearchLimit
  169.       end if
  170.     end if
  171.     Answer "Find " & FindType & " '" & Searchstring & "'" with "Begins With" or "Full Word" or "These Chars"
  172.     if it is "Begins with" then put empty into FindType
  173.     if it is "Full Word" then put "Word" into FindType
  174.     if it is "These Chars" then put "Chars" into FindType
  175.  
  176.   end if
  177.  
  178.  
  179.   set loc of message box to 20,-50
  180.   put "Find" && FindType && Quote & SearchString & Quote & SearchLimit into message box
  181.   hide message box
  182.   set loc of message box to 20,300
  183.   do message box
  184.   if the result is "Not Found" then
  185.     beep
  186.     answer FindType && "'" & SearchString & "'  not found.  Search more?" with "No" or "Yes"
  187.     if it is "Yes" then click at the loc of the name of the target
  188.   end if
  189. end mouseUp
  190.  
  191.  
  192. -- part 21 (button)
  193. -- low flags: 00
  194. -- high flags: 8000
  195. -- rect: left=255 top=123 right=143 bottom=475
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 1
  199. -- font id: 0
  200. -- text size: 12
  201. -- style flags: 0
  202. -- line height: 16
  203. -- part name: Friday, January 1, 1988
  204. ----- HyperTalk script -----
  205.  
  206.  
  207.  
  208.  
  209. -- part 22 (button)
  210. -- low flags: 80
  211. -- high flags: 2004
  212. -- rect: left=266 top=295 right=336 bottom=308
  213. -- title width / last selected line: 0
  214. -- icon id / first selected line: 29114 / 29114
  215. -- text alignment: 1
  216. -- font id: 0
  217. -- text size: 12
  218. -- style flags: 0
  219. -- line height: 16
  220. -- part name: Return
  221. ----- HyperTalk script -----
  222. on mouseUp
  223.   Global   ReturnFromSub
  224.  
  225.   visual effect "CheckerBoard"
  226.   hide background button "Return"
  227.   go to ReturnFromSub
  228. end mouseUp
  229.  
  230.  
  231.  
  232. -- part 23 (field)
  233. -- low flags: 00
  234. -- high flags: 0002
  235. -- rect: left=18 top=164 right=186 bottom=219
  236. -- title width / last selected line: 0
  237. -- icon id / first selected line: 0 / 0
  238. -- text alignment: 1
  239. -- font id: 134
  240. -- text size: 18
  241. -- style flags: 0
  242. -- line height: 24
  243. -- part name: Sub Total
  244.  
  245.  
  246. -- part 24 (field)
  247. -- low flags: 00
  248. -- high flags: 0007
  249. -- rect: left=266 top=190 right=270 bottom=467
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 4
  254. -- text size: 9
  255. -- style flags: 0
  256. -- line height: 11
  257. -- part name: Sub Amount2
  258.  
  259.  
  260. -- part 27 (button)
  261. -- low flags: 00
  262. -- high flags: 2000
  263. -- rect: left=441 top=308 right=334 bottom=466
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 27009 / 27009
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Next
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   visual effect scroll left
  275.   go to next card of this background
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 28 (button)
  281. -- low flags: 00
  282. -- high flags: 2000
  283. -- rect: left=413 top=308 right=334 bottom=438
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 9301 / 9301
  286. -- text alignment: 1
  287. -- font id: 0
  288. -- text size: 12
  289. -- style flags: 0
  290. -- line height: 16
  291. -- part name: Preview
  292. ----- HyperTalk script -----
  293. on mouseUp
  294.   visual effect scroll right
  295.   go to previous card of this background
  296. end mouseUp
  297.  
  298.  
  299. -- part 29 (field)
  300. -- low flags: 80
  301. -- high flags: 0007
  302. -- rect: left=2 top=33 right=287 bottom=511
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 0 / 0
  305. -- text alignment: 0
  306. -- font id: 4
  307. -- text size: 9
  308. -- style flags: 0
  309. -- line height: 11
  310. -- part name: Rpt.
  311.  
  312.  
  313. -- part 32 (field)
  314. -- low flags: 81
  315. -- high flags: 2004
  316. -- rect: left=50 top=45 right=310 bottom=470
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 0 / 0
  319. -- text alignment: 1
  320. -- font id: 3
  321. -- text size: 14
  322. -- style flags: 0
  323. -- line height: 18
  324. -- part name: Help Message Field
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   put the name of the target into thisField
  328.   do "put empty into" && thisField
  329.   hide thisField
  330. end mouseUp
  331.